home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / ttt5.arc / DEMO5.EXE / lha / KEYDEM2.PAS < prev    next >
Pascal/Delphi Source File  |  1989-01-31  |  1KB  |  43 lines
  1. Program KeyTTT5_Demo_2;
  2.  
  3. uses Crt, DOS, FastTTT5, KeyTTT5;
  4.  
  5. var
  6.   B: button;
  7.   H,V: integer;
  8.   Ch : char;
  9.  
  10. begin
  11.   Clrscr;
  12.   If not Moused then
  13.      PlainWrite(1,1,'This demo only functions on PC''s equipped with a mouse')
  14.   else
  15.   begin
  16.       Move_Mouse(5,5);
  17.       WriteCenter(1,white,black,'Press the left mouse button to change cursor');
  18.       Show_Mouse_Cursor;
  19.       Repeat
  20.            Get_Mouse_Action(B,H,V);
  21.       Until B = LeftB;
  22.       Set_Mouse_Cursor_Style(4);   {chr(4) is a diamond}
  23.       Hide_Mouse_Cursor;
  24.       ClearLine(1,white,black);
  25.       Box(20,5,60,15,white,black,4);
  26.       WriteCenter(1,white,black,'The mouse is now confined in the Box');
  27.       WriteCenter(2,white,black,'Move the mouse around, press Right Button when finished');
  28.       Confine_Mouse_Horiz(21,59);
  29.       Confine_Mouse_Vert(6,14);
  30.       Show_Mouse_Cursor;
  31.       Repeat
  32.            Get_Mouse_Action(B,H,V);
  33.       Until B = RightB;
  34.       Clrscr;
  35.       WriteCenter(1,white,black,'You''ve passed the basic test!');
  36.       Hide_Mouse_Cursor;
  37.   end;
  38.   delay(2000);
  39.   WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
  40.   WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  41.   GotoXY(1,5);
  42. end.
  43.